home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / floati1a / frmtoolb.frm < prev    next >
Text File  |  1999-06-26  |  9KB  |  252 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7620
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   -1  'True
  14.       Italic          =   -1  'True
  15.       Strikethrough   =   -1  'True
  16.    EndProperty
  17.    ScaleHeight     =   4245
  18.    ScaleWidth      =   7620
  19.    StartUpPosition =   1  'CenterOwner
  20.    WindowState     =   2  'Maximized
  21.    Begin ComctlLib.Toolbar Toolbar1 
  22.       Height          =   390
  23.       Left            =   200
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   7620
  27.       _ExtentX        =   13441
  28.       _ExtentY        =   688
  29.       ButtonWidth     =   635
  30.       ButtonHeight    =   582
  31.       AllowCustomize  =   0   'False
  32.       ImageList       =   "ImageList1"
  33.       _Version        =   327682
  34.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  35.          NumButtons      =   11
  36.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  37.             Key             =   "a"
  38.             Object.Tag             =   ""
  39.             ImageIndex      =   1
  40.          EndProperty
  41.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  42.             Key             =   "b"
  43.             Object.Tag             =   ""
  44.             ImageIndex      =   2
  45.          EndProperty
  46.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  47.             Key             =   "c"
  48.             Object.Tag             =   ""
  49.             ImageIndex      =   3
  50.          EndProperty
  51.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  52.             Key             =   "sep"
  53.             Object.Tag             =   ""
  54.             Style           =   4
  55.             MixedState      =   -1  'True
  56.          EndProperty
  57.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  58.             Key             =   "d"
  59.             Object.Tag             =   ""
  60.             ImageIndex      =   4
  61.          EndProperty
  62.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  63.             Key             =   "e"
  64.             Object.Tag             =   ""
  65.             ImageIndex      =   5
  66.          EndProperty
  67.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  68.             Key             =   "f"
  69.             Object.Tag             =   ""
  70.             ImageIndex      =   6
  71.          EndProperty
  72.          BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  73.             Key             =   "sep2"
  74.             Object.Tag             =   ""
  75.             Style           =   4
  76.             MixedState      =   -1  'True
  77.          EndProperty
  78.          BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  79.             Key             =   "g"
  80.             Object.Tag             =   ""
  81.             ImageIndex      =   7
  82.          EndProperty
  83.          BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  84.             Key             =   "sep3"
  85.             Object.Tag             =   ""
  86.             Style           =   4
  87.             MixedState      =   -1  'True
  88.          EndProperty
  89.          BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  90.             Key             =   "h"
  91.             Object.Tag             =   ""
  92.             ImageIndex      =   1
  93.          EndProperty
  94.       EndProperty
  95.    End
  96.    Begin VB.TextBox Text1 
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   -1  'True
  103.          Italic          =   0   'False
  104.          Strikethrough   =   -1  'True
  105.       EndProperty
  106.       Height          =   3735
  107.       Left            =   0
  108.       MultiLine       =   -1  'True
  109.       ScrollBars      =   3  'Both
  110.       TabIndex        =   1
  111.       Top             =   480
  112.       Width           =   7575
  113.    End
  114.    Begin VB.Image Image1 
  115.       Height          =   360
  116.       Left            =   20
  117.       Picture         =   "frmToolbarTest.frx":0000
  118.       Top             =   0
  119.       Width           =   195
  120.    End
  121.    Begin VB.Label Label1 
  122.       Height          =   375
  123.       Left            =   200
  124.       TabIndex        =   2
  125.       Top             =   0
  126.       Width           =   7695
  127.    End
  128.    Begin ComctlLib.ImageList ImageList1 
  129.       Left            =   2400
  130.       Top             =   200
  131.       _ExtentX        =   1005
  132.       _ExtentY        =   1005
  133.       BackColor       =   -2147483643
  134.       ImageWidth      =   16
  135.       ImageHeight     =   16
  136.       MaskColor       =   12632256
  137.       _Version        =   327682
  138.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  139.          NumListImages   =   8
  140.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  141.             Picture         =   "frmToolbarTest.frx":008E
  142.             Key             =   ""
  143.          EndProperty
  144.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  145.             Picture         =   "frmToolbarTest.frx":03E0
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  149.             Picture         =   "frmToolbarTest.frx":0732
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  153.             Picture         =   "frmToolbarTest.frx":0A84
  154.             Key             =   ""
  155.          EndProperty
  156.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  157.             Picture         =   "frmToolbarTest.frx":0DD6
  158.             Key             =   ""
  159.          EndProperty
  160.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  161.             Picture         =   "frmToolbarTest.frx":1128
  162.             Key             =   ""
  163.          EndProperty
  164.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  165.             Picture         =   "frmToolbarTest.frx":147A
  166.             Key             =   ""
  167.          EndProperty
  168.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  169.             Picture         =   "frmToolbarTest.frx":17CC
  170.             Key             =   ""
  171.          EndProperty
  172.       EndProperty
  173.    End
  174.    Begin VB.Menu mnufile 
  175.       Caption         =   "File"
  176.       Begin VB.Menu mnufileopen 
  177.          Caption         =   "Open"
  178.       End
  179.    End
  180. End
  181. Attribute VB_Name = "Form1"
  182. Attribute VB_GlobalNameSpace = False
  183. Attribute VB_Creatable = False
  184. Attribute VB_PredeclaredId = True
  185. Attribute VB_Exposed = False
  186. Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  187. ' When user drags and drops toolbar we load frmToolbar
  188. Image1.Visible = False
  189. Toolbar1.Visible = False
  190. frmToolbar.Visible = True
  191. Text1.Move 0, 0, ScaleWidth, ScaleHeight
  192. turk = 1
  193. Form_Resize
  194. End Sub
  195.  
  196. Private Sub Form_GotFocus()
  197. Form_Resize
  198. End Sub
  199.  
  200. Private Sub Form_Load()
  201. Form_Resize
  202. End Sub
  203.  
  204. Private Sub Form_Resize()
  205. If Form1.WindowState = 1 Then
  206.    Exit Sub
  207. End If
  208.  
  209. If turk = 1 Then
  210. Text1.Move 0, 0, ScaleWidth, ScaleHeight
  211. Toolbar1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  212. Label1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  213. Exit Sub
  214. End If
  215.  
  216. If turk = 0 Then
  217. Text1.Move 0, 400, ScaleWidth, ScaleHeight - 400
  218. Toolbar1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  219. Label1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  220. Exit Sub
  221. End If
  222.  
  223. End Sub
  224.  
  225. Private Sub Form_Unload(Cancel As Integer)
  226. Unload frmToolbar
  227. End Sub
  228.  
  229. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  230. Toolbar1.Drag
  231. End Sub
  232.  
  233. Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
  234. ' When user drags and drops toolbar we load frmToolbar
  235. frmToolbar.Visible = False
  236. Toolbar1.Visible = True
  237. Image1.Visible = True
  238. turk = 0
  239.